home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / patins.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  834 b   |  42 lines
  1. on exitFrame
  2.   set check to 0
  3.   set i to 5
  4.   set hot to 0
  5.   repeat while i < 11
  6.     if rollOver(i) then
  7.       set check to 1
  8.       set hot to i
  9.       exit repeat
  10.     end if
  11.     set i to i + 1
  12.   end repeat
  13.   set i to 6
  14.   if check = 1 then
  15.     if (hot = 5) or (hot = 7) or (hot = 9) then
  16.       set hot to hot + 1
  17.     end if
  18.     set the visible of sprite hot to 1
  19.     repeat while i < 11
  20.       if i <> hot then
  21.         set the visible of sprite i to 0
  22.       end if
  23.       set i to i + 2
  24.     end repeat
  25.   end if
  26.   if check = 0 then
  27.     repeat while i < 11
  28.       if the visible of sprite i = 0 then
  29.         set the visible of sprite i to 1
  30.       else
  31.         set the visible of sprite i to 0
  32.       end if
  33.       set i to i + 2
  34.     end repeat
  35.   end if
  36.   if the mouseCast = 50 then
  37.     go("naveg")
  38.   end if
  39.   updateStage()
  40.   go(the frame)
  41. end
  42.